Amiga Plus 2004 #6/Amiga Plus CD - 2004 - No. 06.iso/AmigaPlus/Tools/Virus/VirusZ/Install

Text File | 2003-06-05 | 6KB | 259 lines

; $VER: Installation script for VirusZ 1.0 (28. December 2002)
; © David Crawford
; Created with GoldED 6.2

; check if we are running under correct OS

(if (< (/ (getversion) 65536) 21)

    (
        (abort "Incorrect OS version (software requires OS 21 or better )!")
    )
)

; error handling

(onerror

    (if (> @ioerr 0)

        (
            (message

                ("An error has occurred during installation. Please check the log file to understand the error.")
            )
        )
    )

    (exit (quiet))
)
;--- Standard Email and Website Funcion

(procedure WEBSTUFF
        ;--- set up message texts
        (set #msg-sendmail    "\n Would you like to send a quick message to the author of VirusZ?\n")
        (set #msg-notnow      "Not at this time.")
        (set #msg-visit       "\n\nVisit VirusHelp Denmark on the web?")
        (set #msg-vhtdk       "\n\nIf you select YES, your browser will open directed to www.vht-dk.dk, the Virus Help Denmark website.  It is possible that your screen will change to your Browser's screen.  VirusZ has already been installed on your system, and this portion is purely optional.")
        (set #msg-yes         "Yes")
        (set #msg-no          "No")
        (set #msg-browser     "\n\nPointing your browser to www.vht-dk.dk at this time. You may proceed and exit this installer.")
        (set #sendmail
            (askchoice
                (prompt #msg-sendmail)
                (help @askchoice-help)
                (choices

                    #msg-notnow        ;-- 0
                    "Georg Höermann"   ;-- 1
                )
                (default 0)
            )
        )

        (if (= #sendmail 1)
          (
              (run "openurl mailto:[e-mail]"
                  (safe)
              )
          )
        )

        (set #visit
            (askbool
                (prompt #msg-visit)
                (help #msg-vhtdk)
                (choices

                    #msg-yes
                    #msg-no
                )
                (default 1)
            )
        )

        (if (= #visit 1)
            (
              (message #msg-browser)
              (run "openurl http://www.vht-dk.dk"
                   (safe)
              )
            )
        )

)
;--- End Intenet Area ---
(welcome)

(set #vz-dest

    (askdir

        (prompt "Please choose the installation path: \n Note: A directory named VirusZ will be created.")

        (help "Installation creates a new folder for VirusZ in the path you specify.")

        (default @default-dest)
    )
)
(makedir (tackon #vz-dest "VirusZ") (infos))
(set @default-dest (tackon #vz-dest "VirusZ"))

; --- insert your code below ---

(copyfiles

    (source "/VirusZ")

    (dest @default-dest)

    (infos)

    (pattern "#?")

    (optional "fail")
)
(working "Testing required libraries.")
(set #report-msg "Library Report ( in Libs: )\n====================\n")
;--- commodities.library > 37
(set vernum (getversion "Libs:commodities.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #cmdlib-msg
       (cat
       "\ncommodities.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #cmdlib-msg "\nYou are missing commodities.library. ( Required )\n")
  )
)
;rexxsyslib.library >33
(set vernum (getversion "Libs:rexxsyslib.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #rxsyslib-msg
       (cat
       "rexxsyslib.library   "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #rxsyslib-msg "You are missing rexxsyslib.library. ( Required )\n")
  )
)
;reqtools.library >38
(set vernum (getversion "Libs:reqtools.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #rptl-msg
       (cat
       "reqtools.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #rptl-msg "You are missing reqtools.library. ( Required ) \n")
  )
)
;xfdmaster.library >37
(set vernum (getversion "Libs:xfdmaster.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #xfd-msg
       (cat
       "xfdmaster.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #xfd-msg "You are missing xfdmaster.library. ( Required ) \n")
  )
)
;xvs.library >33
(set vernum (getversion "Libs:xvs.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #xvs-msg
       (cat
       "xvs.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #xvs-msg "You are missing xvs.library. ( Required ) \n")
  )
)
;xadmaster.library  v3+
(set vernum (getversion "Libs:xadmaster.library")) ; >37
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #xad-msg
       (cat
       "xadmaster.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #xad-msg "xadmaster.library not found (optional, for scanning inside archives)\n")
  )
)
;disassembler.library v40+
(set vernum (getversion "Libs:disassembler.library"))
(set ver (/ vernum 65536))
(if (> ver 0)
  (
    (set rev (- vernum (* ver 65536) ) )
    (set #dis-msg
       (cat
       "disassembler.library "ver"."rev"\n"
       )
    )
  )
;else
  (
     (set #dis-msg "disassembler.library NOT found (optional, for disassembling bootblocks/memory)\n")
  )
)
(set #end-msg "\n====================\nLibrary Check complete.")
;build report
(set #librpt
   (cat
    #report-msg
    #cmdlib-msg
    #rxsyslib-msg
    #rptl-msg
    #xfd-msg
    #xvs-msg
    #xad-msg
    #dis-msg
    #end-msg
   )
)
(message #librpt)
(WEBSTUFF)
(message "\n\n\nVirusZ III (c)2002 Georg Hörmann\n\nInstaller (c)2002 David Crawford\n\n Installation Complete.")
; --- end of your code ---

(exit (quiet))